home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Examples / card_4461.txt < prev    next >
Text File  |  1990-04-09  |  2KB  |  78 lines
  1. -- card: 4461 from stack: in
  2. -- bmap block id: 7561
  3. -- flags: 0000
  4. -- background id: 4709
  5. -- name: Brochures
  6. ----- HyperTalk script -----
  7. on openCard
  8.   ResetMenuField
  9. end openCard
  10.  
  11. on mouseUp
  12.   visual dissolve slow to card
  13.   pop card
  14.   ResetMenuField
  15. end mouseUp
  16.  
  17. on ResetMenuField
  18.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & "‚Ä¢Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  19. end ResetMenuField
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 2004
  25. -- rect: left=26 top=76 right=233 bottom=192
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Select Field
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global whichExample,showState
  37.   put empty into whichExample
  38.   put empty into showState
  39.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  40.   if line clickLine of me is not empty then
  41.     put word 1 of line clickLine of card field "Select Field" into whichExample
  42.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  43.     push card
  44.     visual dissolve to card
  45.     go to card whichExample
  46.   else
  47.     if line clickLine of me is not empty and whichExample is "Science &" then
  48.       push card
  49.       visual dissolve to card
  50.       go to card "Science & Engineering"
  51.     else
  52.       if line clickLine of me is not empty and whichExample is "HyperCard Stack" then
  53.         push card
  54.         visual dissolve to card
  55.         go to card "HyperCard Stack"
  56.       end if
  57.     end if
  58.   end if
  59. end mouseUp
  60.  
  61. on ResetMenuField
  62.   put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
  63. end ResetMenuField
  64.  
  65.  
  66.  
  67. -- part contents for card part 2
  68. ----- text -----
  69.  Newsletters
  70.  Graphic Design
  71.  Illustrations
  72.  Presentations
  73.  Document Processing
  74.  Databases
  75. •Brochures
  76.  Image Transmission
  77.  Manuals
  78.